home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er Special 16
/
64er_Magazin_Sonderheft_16_19xx_Markt__Technik_de_Side_A.d64
/
twm-listing 9
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
829b
|
35 lines
10 rem masken-demo
20 :
30 sys32168
35 poke 650,128 :rem alle tasten repeat-funktion
40 :
50 (NULL)1,5,0,22,39,1,0,"maske" :(NULL)1,6,128
60 (NULL)2,2,0,24,39,1,0,"ergebnis" :(NULL)2,5,128
70 dim a$(40)
80 :
90 (NULL) 2,2,5,"soll die maskendefinition 'von hand'"
100 (NULL) 4,2,"mit wedit oder vom programm aus mit"
110 (NULL) 6,2,"wprint erfolgen ?"
120 (NULL) 8,2,"(h=hand, p=programm) ",,"hp",1,hp$
130 :
140 if hp$="h" then (NULL) 24,1,"ende mit 'f3' !" :(NULL)1 :(NULL) :goto 190
150 (NULL)1
160 for i=1 to 4
170 (NULL) i*2-1,1,6,"feld"i; :(NULL) 12 :kn=29 :if i=4 then kn=220
175 for k=1 to kn :print chr$(164); :next :rem chr$(164)=strich-zeichen
180 next
190 :
200 (NULL)
210 n=(NULL)(0) :(NULL)0:(NULL) 0,1,str$(n)+" felder !" :(NULL)1
220 (NULL)
230 for i=1 to n :(NULL) a$(i) :next
240 (NULL)2 :(NULL) 5 :printchr$(147)
250 (NULL) 1,1,"ihre eingaben in feld..." :print
260 for i=1 to n
270 (NULL) 5 :print i": "; :(NULL) 15 :print a$(i)
280 next
290 (NULL) chr$(95),1 :rem chr$(95)=pfeil nach links
300 (NULL)
310 (NULL)
320 goto 220